/* GUI CONVERTED from rcsoisa.p (converter v1.75) Tue Apr 10 12:05:37 2001 */
/* rcsoisa.p - Release Management Customer Schedules                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.23 $                                                          */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.3    LAST MODIFIED: 10/16/92           BY: WUG *G462*          */
/* REVISION: 7.4    LAST MODIFIED: 10/14/93           BY: dpm *H074*          */
/* REVISION: 7.4    LAST MODIFIED: 11/01/94           BY: ame *GN84*          */
/* REVISION: 7.4    LAST MODIFIED: 11/10/94           BY: mmp *H594*          */
/* REVISION: 8.6    LAST MODIFIED: 09/20/96           BY: TSI *K005*          */
/* REVISION: 8.6    LAST MODIFIED: 11/16/97       BY: *K18W* Taek-Soo Chang   */
/* REVISION: 8.6E   LAST MODIFIED: 06/01/98       BY: *K1NF* Niranjan R.      */
/* REVISION: 8.6E   LAST MODIFIED: 06/16/98       BY: *J2D9* Sachin Shah      */
/* REVISION: 8.6E   LAST MODIFIED: 10/12/98       BY: *L0BY* Alfred Tan       */
/* REVISION: 9.0    LAST MODIFIED: 02/24/99       BY: *J3BM* Reetu Kapoor     */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00       BY: *N0KP* Mark Brown       */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.23 $    BY: Jean Miller         DATE: 03/22/01  ECO: *P008*   */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* SHIPPER CONFIRM SUBPROGRAM */

{mfdeclre.i}

define input parameter abs_recid as recid no-undo.

define variable par_shipfrom as character no-undo.
define variable par_id as character no-undo.

{rcwabsdf.i}

for first abs_mstr
fields (abs_id abs_item abs_line abs_loc abs_lotser
        abs_order abs_par_id abs_qty abs_ref abs_shipfrom
        abs_ship_qty abs_site abs__qad02 abs__qad03 abs__qad04
        abs__qad06 abs__qad07 abs__qad08 abs__qad09 abs__qad10)
where recid(abs_mstr) = abs_recid no-lock:
end.

create work_abs_mstr.
assign
   work_abs_mstr.abs_shipfrom = abs_mstr.abs_shipfrom
   work_abs_mstr.abs_id       = abs_mstr.abs_id
   work_abs_mstr.abs_par_id   = abs_mstr.abs_par_id
   work_abs_mstr.abs_item     = abs_mstr.abs_item
   work_abs_mstr.abs_qty      = abs_mstr.abs_qty
   work_abs_mstr.abs_ship_qty = abs_mstr.abs_ship_qty
   work_abs_mstr.abs_order    = abs_mstr.abs_order
   work_abs_mstr.abs_line     = abs_mstr.abs_line
   work_abs_mstr.abs_site     = abs_mstr.abs_site
   work_abs_mstr.abs_loc      = abs_mstr.abs_loc
   work_abs_mstr.abs_lotser   = abs_mstr.abs_lotser
   work_abs_mstr.abs_ref      = abs_mstr.abs_ref
   work_abs_mstr.abs__qad02   = abs_mstr.abs__qad02
   work_abs_mstr.abs__qad03   = abs_mstr.abs__qad03
   work_abs_mstr.abs__qad04   = abs_mstr.abs__qad04
   work_abs_mstr.abs__qad06   = abs_mstr.abs__qad06
   work_abs_mstr.abs__qad07   = abs_mstr.abs__qad07
   work_abs_mstr.abs__qad08   = abs_mstr.abs__qad08
   work_abs_mstr.abs__qad09   = abs_mstr.abs__qad09
   work_abs_mstr.abs__qad10   = abs_mstr.abs__qad10
   par_shipfrom               = abs_mstr.abs_shipfrom
   par_id                     = abs_mstr.abs_id.

if recid(work_abs_mstr) = -1 then .

for each abs_mstr
fields (abs_id abs_item abs_line abs_loc abs_lotser
        abs_order abs_par_id abs_qty abs_ref abs_shipfrom
        abs_ship_qty abs_site abs__qad02 abs__qad03 abs__qad04
        abs__qad06 abs__qad07 abs__qad08 abs__qad09 abs__qad10)
where abs_mstr.abs_shipfrom = par_shipfrom
  and abs_mstr.abs_par_id = par_id
no-lock:
/*GUI*/ if global-beam-me-up then undo, leave.

   {gprun.i ""rcsoisa.p"" "(input recid(abs_mstr))"}
/*GUI*/ if global-beam-me-up then undo, leave.

end.
/*GUI*/ if global-beam-me-up then undo, leave.

